home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Symbols / s-complement < prev    next >
Text File  |  1998-08-11  |  857b  |  35 lines
  1. s-complement  symbol-lists
  2.  
  3. (s-complement '(a c d g))
  4. => (b e f)
  5.  
  6. (s-complement '((a c d g) (a c d g)))
  7. => ((b e f) (b e f))
  8.  
  9. (s-complement '((a c d g) (abcd)))
  10. => ((b e f) (abcd))
  11.  
  12. (s-complement '((a c d g) (abcd) (adfik)))
  13. => ((b e f) (abcd) (bceghj))
  14.  
  15. (s-complement
  16.  (c-pitch-to-symbol
  17.   '((c4 e4 g4) (c4 d4 f4 a4)
  18.     (b3 d4 f4 g4) (c4 e4 g4)
  19.     (c4 e4 a4) (c4 d4 f#4 a4)
  20.     (b3 d4 g4) (b3 c4 e4 g4)
  21.     (a3 c4 e4 g4) (a3 c4 d4 f#4)
  22.     (g3 b3 d4 g4) (g3 a#3 c#4 e4)
  23.     (f3 a3 d4) (f3 g#3 b3 d4)
  24.     (e3 g3 c4) (e3 f3 a3 c4)
  25.     (d3 f3 a3 c4) (g2 b2 d3 g3 f3)
  26.     (c3 e3 g3) (c3 e3 g3 a#3)
  27.     (f2 a2 c3 e3) (f#2 a2 c3 d#4)
  28.     (g#2 b2 c3 d3 f3) (g2 b2 d3 f3)
  29.     (g2 c3 e3) (g2 c3 d3 f3)
  30.     (g2 b2 d3 f3) (g2 a2 c3 d#3 f#3)
  31.     (g2 c3 e3) (g2 c3 d3 f3)
  32.     (g2 b3 d3 f3) (c2 e2 g2 a#2)
  33.     (c2 d2 f2 a2)
  34.     (c2 d2 e2 f2 g2 b2)
  35.     (c2 e2 g2 c3))))